
	******************************************************************
	**
	**
	**		NAME:		GUY GROSSMAN, YOTAM MARGALIT, TAMAR MITTS
	**		DATE: 		December 15, 2021
	**		PROJECT: 	Israel Hayom
	**		DETAILS: 	This code generates figure SI-5
	**		Version: 	Stata MP 16
	**
	******************************************************************
	
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**

*set scheme plotplainblind, permanently
clear
version 16
set scheme plotplain
set more off

capture cd "~/dropbox/Israeli Newspapers Study/JOP_REPLICATION/Dataverse submission"

* bring in dataset

clear
version 16
set more off
set scheme plotplain, permanently
ssc install catplot

use "Data/newspaper_headlines_final.dta"


*** reconcile codings
gen position5 =.
replace position5=5 if orientation_t==1 & orientation_h==1
replace position5= 4 if (orientation_t==1 & orientation_h==3) | (orientation_t==3 & orientation_h==1)
replace position5= 3 if (orientation_t==3 & orientation_h==3) | (orientation_t==4 & orientation_h==4) 
replace position5= 2 if (orientation_t==2 & orientation_h==3) | (orientation_t==3 & orientation_h==2)
replace position5= 1 if orientation_t==2 & orientation_h==2
replace position5= -99 if (orientation_t==1 & orientation_h==2) | (orientation_t==2 & orientation_h==1)
replace position5= 4 if (orientation_t==1 & orientation_h==4) | (orientation_t==4 & orientation_h==1)
replace position5= 3 if (orientation_t==4 & orientation_h==3) | (orientation_t==3 & orientation_h==4)
replace position5= 2 if (orientation_t==2 & orientation_h==4) | (orientation_t==4 & orientation_h==2)

label define lposition -99 "contradictory"  1 "clear left" 2 "leaning left" 3 "neutral" 4 "leaning right" 5 "clear right"
label values position5 lposition  
lab var paper_code "Newspaper source"


************************************
***** Analysis
************************************
graph drop _all

**** slant of the header
tab position5 paper_code if position>0, col

* Figure showing front-page headlines of IH are more right-wing slanted
catplot position5 if position>0, by(paper_code, col(1) note("")) percent(paper_code) bar(1, bcolor(blue)) blabel(bar, position(outside) format(%3.0f)) title(Front page headline slant) yscale(r(0,60)) ytitle("Share front-page headlines")
graph export "Figures/Fig_SI-5.pdf", replace


